VERSION 5.00
Begin VB.Form frmCommands 
   Caption         =   "Commands"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.Label lblArguments 
      BorderStyle     =   1  'Fixed Single
      Height          =   2655
      Left            =   120
      TabIndex        =   1
      Top             =   480
      Width           =   4455
   End
   Begin VB.Label Label1 
      Caption         =   "Command line arguments:"
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1815
   End
Attribute VB_Name = "frmCommands"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' Display the command line arguments.
Private Sub Form_Load()
Dim cmds As String
Dim txt As String
Dim pos As Integer
    cmds = Command$
    Do While Len(cmds) > 0
        pos = InStr(cmds, " ")
        If pos = 0 Then
            txt = txt & cmds
            cmds = ""
        Else
            txt = txt & Left$(cmds, pos - 1) & vbCrLf
            cmds = Mid$(cmds, pos + 1)
        End If
    Loop
    lblArguments.Caption = txt
End Sub
Private Sub Form_Resize()
Dim hgt As Single
    hgt = ScaleHeight - lblArguments.Top
    If hgt < 120 Then hgt = 120
    lblArguments.Move 0, lblArguments.Top, _
        ScaleWidth, hgt
End Sub